Sub зƮ()

    Dim Ʈ As Worksheet
    Dim з As Range,  As Range
    Dim ǰڵ As Range, ġ As Range
    Dim Ʈ̸ As String
        
    Set Ʈ = ActiveSheet
    Set з = Range("E3", Cells(Rows.Count, "E").End(xlUp))
        
    For Each  In з
    
        Ʈ̸ = .Value
            
        If Not ISSHEET(Ʈ̸) Then
        
            Worksheets.Add After:=Sheets(Sheets.Count)
            ActiveSheet.Name = Ʈ̸
        
            With Ʈ
                
                .Range("B2:E2").Copy
                Range("B2").PasteSpecial xlPasteAll
                Range("B2").PasteSpecial xlPasteColumnWidths
                
                Range("B3").Select
                
                Application.CutCopyMode = False
                
                .Activate
                
            End With
        
        End If
        
        With Worksheets(Ʈ̸)
        
            If .Columns(2).Find(.Offset(0, -3)) Is Nothing Then
            
                Set ǰڵ = .Offset(0, -3).Resize(1, 4)
                Set ġ = .Cells(Rows.Count, "B").End(xlUp).Offset(1)
                
                ǰڵ.Copy ġ
            
            End If
        
        End With
        
    Next
    
End Sub
